#!./perl

open (ONLY,"/tmp/httpd/top");
while (<ONLY>) {
	$line = $_;
	@fields = split(/\^/,$_);
	print @fields[2];
}
close (OPEN);


